home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: MegaDisc / MegaDisc 41 (1994-09)(MegaDisc Digital Publishing)(AU)(Disk 2 of 2).zip / MegaDisc 41 (1994-09)(MegaDisc Digital Publishing)(AU)(Disk 2 of 2).adf / ARexx_&_HBook / MiniLinks / Script3 < prev    next >
Text File  |  1994-08-09  |  2KB  |  32 lines
  1.   The route through scripts
  2.     
  3.       Was a `filename` supplied?              If second argument supplied:
  4.               |                                           |           
  5.       ___No___|___Yes___                             Was it 'xy'?     
  6.      |                  |                                 | 
  7.    Assign               |                          __No___|__Yes_                                     
  8.   'Script1' ----> Does it exist?                  |              |       
  9.                         |                   `Close down`        Set xy    
  10.                 ___No___|___Yes___                |           tracer   
  11.                |                  |              Quit                   
  12.          Put up File ---------> Screen                                   
  13.        _ Requester              file           See also 'comments' at   
  14.       |        |                  |            the beginning of the    
  15.     Exit if    |                `Loop`           ARexx program itself.    
  16.    'Cancel'    |                  |     
  17.     selected    <----------------- 
  18. <
  19. Names should be a concatenation of a name and a number such as :
  20. Script1, Script2, ... ; Science1, Science2, ... ; Unit1, Unit2, ...
  21.     
  22. A handy way of closing a window which remains
  23. stubbornly open in the case of an error.
  24.     
  25. REPEAT Wait for user action. If '->' or '<-', the script number 
  26.        is adjusted, ± 1.  If that file exists, it is screened.
  27.  UNTIL file does not exist, or the '??'
  28.        or 'Close' or 'Cancel' gadget is clicked. 
  29.  
  30. call rect(27,17,241,28,7,7)
  31. call rect(28,32,345,174,1,2)
  32. call rect(361,32,598,118,1,2)